﻿Public Class frmIngresoSistema

    Private Sub bntIniciar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntIniciar.Click
        Try

            Dim Validar As New Banco.BE.Usuarios
            Dim funciones As New Banco.BS.Usuarios
            Dim usuario As Banco.BE.Usuarios = Nothing
            usuario = New Banco.BE.Usuarios
            Dim existe As Boolean = False

            Validar.NombreUsuario = txtNombreUsuario.Text
            Validar.Contraseña = txtContraseña.Text

            usuario = funciones.IniciarSecion(Validar)

            If usuario.NombreUsuario = txtNombreUsuario.Text Then
                existe = True
            End If


            If existe Then
                Dim Principal As New frmPrincipal


                If usuario.Perfil = BE.PerfilUsuario.Administrador Then
                    Principal.tsmiMenu.Enabled = True
                Else
                    Principal.tsmiMenu.Enabled = False
                End If


                If usuario.Estado = BE.Estado.Habilitado Then
                    Principal.Show()
                    Me.Hide()

                Else
                    MsgBox("Usuario no Habilitado")
                End If



            Else
                MsgBox("Fallo de conexion")
                ' Textbox2.Clear()
            End If
        Catch ex As Exception
            MsgBox("Usuario no registrado")
        End Try
    End Sub
End Class